home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 22 / CU Amiga Magazine's Super CD-ROM 22 (1998)(EMAP Images)(GB)[!][issue 1998-05].iso / PowerPC / Programming / PPCSmallEiffel / bin_c / pretty1.c < prev    next >
Encoding:
C/C++ Source or Header  |  1998-01-16  |  11.8 KB  |  490 lines

  1. /*
  2. -- ANSI C code generated by :
  3. -- SmallEiffel The GNU Eiffel Compiler -- Release (- 0.82)      --
  4. -- Copyright (C), 1994-98 - LORIA - UHP - CRIN - INRIA - FRANCE --
  5. -- Dominique COLNET and Suzanne COLLIN -    colnet@loria.fr     --
  6. --                 http://www.loria.fr/SmallEiffel              --
  7. */
  8. #include "pretty.h"
  9. T376 M376={376,NULL,NULL,NULL,NULL};
  10. T343 M343={NULL,NULL,NULL,NULL,0};
  11. T121 M121={121,NULL,NULL,NULL,NULL,NULL,NULL};
  12. T134 M134={134,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,0};
  13. T868 M868={868,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,0,NULL,NULL};
  14. T916 M916=NULL;
  15. T380 M380={380,NULL,NULL,NULL,NULL,NULL,NULL};
  16. T588 M588={588,NULL,NULL,NULL,NULL,NULL,NULL};
  17. T590 M590={0};
  18. T431 M431={NULL,NULL};
  19. T873 M873={873,NULL,NULL,NULL,0,NULL};
  20. T292 M292={292,NULL,NULL};
  21. T890 M890={890,NULL,NULL,NULL,NULL,NULL,NULL};
  22. T414 M414={414,NULL,NULL,NULL,NULL,NULL,NULL};
  23. T830 M830=NULL;
  24. T390 M390={390,NULL,NULL,NULL,NULL,NULL};
  25. T699 M699={NULL,NULL,NULL,NULL};
  26. T906 M906={906,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,0,NULL};
  27. T28 M28={28,NULL,0,0,0};
  28. T235 M235={NULL,0,0,0};
  29. T604 M604={0,0,0,0,0};
  30. T349 M349={349,NULL,NULL,0};
  31. T933 M933={933,NULL,NULL,NULL,NULL};
  32. T886 M886={886,NULL,NULL,NULL,0,NULL};
  33. T446 M446={446,0,NULL,NULL,NULL,NULL};
  34. T398 M398={398,NULL,NULL,NULL,NULL,NULL,NULL};
  35. T46 M46={46,NULL,NULL,NULL};
  36. T679 M679={679,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL};
  37. T145 M145={145,NULL,NULL,NULL};
  38. T147 M147={NULL,0,0,0};
  39. T477 M477={NULL,0,0,0};
  40. T892 M892={892,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,0,NULL};
  41. T796 M796={796,NULL,NULL,NULL};
  42. T404 M404={404,NULL,NULL,NULL,NULL,NULL,NULL};
  43. T453 M453={453,NULL,NULL,NULL,NULL,NULL,NULL};
  44. T348 M348={NULL,NULL,NULL,NULL};
  45. T372 M372={372,NULL,NULL,NULL,0,0};
  46. T41 M41={NULL,0,0};
  47. T153 M153={NULL,NULL,NULL};
  48. T226 M226={NULL,0,0};
  49. T460 M460={460,NULL,NULL,NULL,NULL,NULL,NULL};
  50. T180 M180={180,NULL,NULL,NULL,NULL,NULL};
  51. T902 M902=NULL;
  52. T158 M158={158,NULL,NULL,NULL,NULL};
  53. T904 M904={904,NULL,NULL,NULL,NULL,NULL,NULL,0,NULL};
  54. T953 M953={NULL};
  55. T809 M809={NULL,NULL,NULL};
  56. T794 M794={NULL,NULL,NULL,NULL,0,0,0,0,0};
  57. T689 M689={689,NULL,NULL,NULL,NULL,NULL,NULL};
  58. T605 M605={0,NULL,NULL,NULL,0,0,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL};
  59. T958 M958={958,NULL,NULL,NULL};
  60. T956 M956={NULL,0,0,0};
  61. T306 M306={0};
  62. T368 M368={NULL,0,0,NULL,NULL,0,NULL,NULL};
  63. T636 M636={NULL,NULL};
  64. T429 M429={NULL,0,0,0};
  65. T358 M358={358,NULL,NULL,0,NULL};
  66. T592 M592={NULL,NULL,NULL};
  67. T529 M529={529,NULL,NULL,NULL};
  68. T436 M436={436,NULL,NULL,NULL,NULL};
  69. T764 M764={NULL,0,0,0};
  70. T644 M644={NULL};
  71. T388 M388={388,NULL};
  72. T900 M900={900,NULL};
  73. T843 M843={NULL,NULL,NULL,NULL,NULL,NULL};
  74. T673 M673={NULL,NULL,NULL,NULL};
  75. T406 M406={406,NULL,NULL,0,NULL};
  76. T338 M338={NULL,NULL,NULL,NULL,0,0,0,0,0};
  77. T7 M7={NULL,0,0};
  78. T675 M675={0,NULL,0,0};
  79. T347 M347={347,NULL,NULL,NULL,NULL};
  80. T932 M932={932,NULL,NULL,NULL,NULL,NULL,NULL};
  81. T676 M676={NULL,0};
  82. T629 M629={629,NULL,NULL,NULL};
  83. T239 M239={239,NULL,NULL,NULL,NULL};
  84. T936 M936={936,NULL,NULL,NULL};
  85. T377 M377={NULL,NULL};
  86. T683 M683={0,0,0};
  87. T733 M733={733,NULL,0,0,0};
  88. T990 M990={990,NULL,NULL,NULL,NULL,NULL};
  89. T247 M247={247,NULL,0,0,0};
  90. T849 M849={849,NULL,NULL};
  91. T410 M410={NULL,NULL,0};
  92. T696 M696={696,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,0};
  93. T948 M948={NULL,0,0,0};
  94. T657 M657={657,NULL};
  95. T300 M300={300};
  96. T940 M940={940,NULL,NULL,NULL,NULL};
  97. T367 M367={367,NULL,NULL};
  98. T671 M671={NULL,NULL};
  99. T65 M65={65,NULL,0,0,0};
  100. T627 M627={NULL,0};
  101. T260 M260={260,NULL,NULL,0,0};
  102. T213 M213={NULL,NULL,NULL,NULL};
  103. T252 M252={252,NULL};
  104. T495 M495={NULL,0,0,0};
  105. T263 M263={263,NULL,0,0,0};
  106. T633 M633={NULL,NULL,NULL,NULL,0};
  107. T283 M283={283,NULL,0,NULL};
  108. T320 M320={320};
  109. T59 M59={NULL,NULL};
  110. T253 M253={253,NULL,NULL,NULL,NULL,NULL,NULL};
  111. T877 M877={NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL};
  112. T278 M278={278,NULL,NULL,NULL,NULL,NULL,NULL};
  113. T670 M670=0;
  114. T767 M767={767,NULL,NULL,NULL,NULL,NULL};
  115. T880 M880={880,NULL,NULL,NULL,NULL,NULL,NULL,NULL};
  116. T393 M393={NULL,NULL};
  117. T723 M723={723,NULL};
  118. T688 M688={NULL};
  119. T31 M31={31,NULL,NULL,NULL,NULL};
  120. T701 M701={NULL,0,0,0};
  121. T33 M33={NULL};
  122. T522 M522={NULL,0,0,0};
  123. T963 M963={963,NULL,NULL,NULL};
  124. T707 M707={707,NULL};
  125. T417 M417={0};
  126. T712 M712={NULL,NULL};
  127. T760 M760={760,NULL,NULL,NULL,NULL,NULL,NULL};
  128. T552 M552={NULL,0,0,0};
  129. T669 M669={669,NULL};
  130. T534 M534={534,NULL,NULL,NULL,NULL,NULL,NULL};
  131. T915 M915={915,NULL,NULL,NULL,NULL,NULL,NULL};
  132. T999 M999={999,NULL,NULL,NULL,NULL,NULL};
  133. T352 M352={NULL,0,0};
  134. T720 M720={720,NULL,NULL,NULL,NULL};
  135. T680 M680={680};
  136. T441 M441=NULL;
  137. T64 M64={64,NULL};
  138. T420 M420={420,NULL};
  139. T517 M517={517,NULL,NULL,NULL,NULL,NULL};
  140. T848 M848={NULL,0,0,0};
  141. T199 M199={NULL,NULL,NULL,NULL,0,0,0,0,0};
  142. T520 M520={520,NULL,NULL,NULL,NULL,NULL,NULL};
  143. T451 M451={NULL,NULL};
  144. T340 M340=NULL;
  145. T708 M708={708,NULL,NULL,NULL};
  146. T709 M709={709,NULL,NULL,NULL,NULL};
  147. T454 M454={454,NULL,NULL,0,NULL};
  148. T38 M38={NULL,0,0,0};
  149. T919 M919=0;
  150. T479 M479={0};
  151. T664 M664={664,NULL,NULL,0};
  152. T554 M554={554,NULL,NULL,NULL,NULL,NULL,NULL};
  153. T557 M557={557,NULL,NULL,NULL,NULL,NULL,NULL};
  154. T72 M72={72,NULL,NULL,NULL,NULL,NULL};
  155. T854 M854={NULL,0,0};
  156. T209 M209={209,NULL};
  157. T26 M26={NULL,0,0,0};
  158. T491 M491={491,NULL};
  159. T587 M587={NULL,0,0,0};
  160. T505 M505={NULL,NULL,NULL,NULL,NULL,NULL,NULL};
  161. T381 M381={381,NULL,0,0,0};
  162. T544 M544={NULL,0};
  163. T498 M498={NULL,NULL};
  164. T523 M523={523,NULL,NULL,NULL,NULL,NULL};
  165. T805 M805={805,NULL,NULL,NULL,NULL,NULL,NULL,NULL};
  166. T85 M85={85};
  167. T574 M574={574,NULL,NULL,NULL,NULL,NULL,NULL};
  168. T718 M718={NULL,NULL,NULL,NULL,0,0,0,0,0};
  169. T855 M855={NULL,0,0,0};
  170. T943 M943={0,NULL};
  171. T576 M576=0;
  172. T185 M185={NULL,0,0};
  173. T90 M90={90,NULL,NULL,NULL,NULL,NULL,NULL};
  174. T715 M715={715,NULL,NULL,NULL,NULL};
  175. T96 M96={96,NULL,0,0,0};
  176. T681 M681={NULL,0,0,0};
  177. T378 M378={NULL};
  178. T541 M541={NULL};
  179. T52 M52={NULL,0,0,0};
  180. T56 M56={NULL};
  181. T313 M313={313,NULL,NULL,NULL,NULL,NULL,NULL};
  182. T57 M57={57,NULL,NULL,NULL,NULL,NULL,NULL};
  183. T106 M106={106,NULL,NULL,NULL,NULL,NULL};
  184. T268 M268={268,NULL,NULL,NULL,NULL};
  185. T39 M39={39,NULL,NULL,NULL,0,NULL,0};
  186. T853 M853={853,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL};
  187. T342 M342={342,NULL,NULL,0};
  188. T782 M782={NULL,NULL};
  189. T808 M808={808,NULL,NULL,NULL,NULL,NULL,NULL,0,NULL,NULL};
  190. T893 M893={893};
  191. T222 M222={NULL,0,0};
  192. T881 M881={NULL,NULL};
  193. T907 M907={NULL,0,0};
  194. T580 M580={580,NULL,NULL,NULL,NULL,NULL,NULL};
  195. T788 M788={788,NULL};
  196. T250 M250={NULL,NULL,NULL,NULL,0,0,0,0,0,0,0};
  197. T237 M237={NULL,NULL,NULL,NULL,0,0,0,0,0};
  198. T317 M317={317,NULL,NULL,NULL,NULL,NULL};
  199. T23 M23={23,NULL,NULL,NULL,0,NULL};
  200. T487 M487={487,NULL,NULL,NULL,NULL,NULL};
  201. T583 M583={NULL,NULL,NULL,NULL};
  202. T863 M863={NULL,0,0,0};
  203. T608 M608={NULL,0,0,0};
  204. T490 M490={NULL,NULL};
  205. T818 M818={0,0,0,0,0,NULL,0,NULL,NULL,NULL,0,0,NULL,NULL,0,0,0,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,0,0};
  206. T820 M820={820,NULL,NULL,NULL,NULL,NULL,NULL,0,NULL};
  207. T492 M492={492,NULL,NULL,NULL,NULL,NULL,NULL};
  208. T126 M126={126,NULL,NULL,NULL};
  209. T382 M382={NULL,0,0,0};
  210. T542 M542={NULL,NULL};
  211. T353 M353={NULL,0,0,0};
  212. T270 M270={270,NULL,NULL,NULL,NULL,NULL,NULL};
  213. T844 M844={844,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,0};
  214. T256 M256={NULL,0,0};
  215. T845 M845={845,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,0,NULL,NULL};
  216. T530 M530={530,NULL,NULL,NULL,NULL};
  217. T187 M187={NULL,0,0};
  218. T883 M883={883,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL};
  219. T655 M655={655,NULL,NULL,NULL,NULL,NULL,NULL};
  220. T511 M511={NULL,0,0};
  221. T240 M240={240};
  222. T913 M913={NULL};
  223. T857 M857={857,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,0,NULL,NULL};
  224. T284 M284={284,NULL};
  225. T297 M297={297,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,0};
  226. T835 M835={835,NULL,NULL,NULL,NULL,NULL,NULL};
  227. T419 M419={NULL,0,0,0};
  228. T238 M238={NULL,0,0,0,0,0,0,0};
  229. T568 M568={568,NULL,NULL,NULL,NULL,NULL};
  230. T362 M362={362,NULL,NULL,NULL};
  231. T970 M970={970};
  232. T620 M620={620,NULL,NULL,NULL,NULL};
  233. T901 M901={NULL,0,0,0};
  234. T549 M549={549,NULL,NULL,NULL,NULL};
  235. T526 M526={526,NULL,NULL};
  236. T927 M927={NULL,0,0};
  237. T623 M623={NULL,NULL,NULL,NULL};
  238. T869 M869={869,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,0,NULL,NULL};
  239. T112 M112={112,NULL,NULL,NULL,NULL,NULL,NULL};
  240. T648 M648={648,NULL,NULL,NULL,NULL};
  241. T649 M649={649,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL};
  242. T396 M396={NULL,0,0,0};
  243. T118 M118={118,NULL,NULL,NULL,NULL,NULL,NULL};
  244. T558 M558={558,NULL,NULL,NULL,NULL,0};
  245. int r6_px_and(int C,int a1){
  246. int R=0;
  247. R=(C)&&(a1);
  248. return R;
  249. }
  250. int r6_ix_not(int C){
  251. int R=0;
  252. /*IF*/if (C) {
  253. }
  254. else {
  255. R=1;
  256. }
  257. /*FI*/return R;
  258. }
  259. T0* r2to_string(int C){
  260. T0* R=NULL;
  261. {T7*n=malloc(sizeof(*n));
  262. *n=M7;
  263. r7make(n,0);
  264. R=(T0*)n;
  265. }
  266. r2append_in(C,R);
  267. return R;
  268. }
  269. void r2append_in(int C,T0* a1){
  270. int _i=0;
  271. int _val=0;
  272. /*IF*/if ((C)==(0)) {
  273. r7extend(((T7*)a1),'0');
  274. }
  275. else {
  276. /*IF*/if ((C)>(0)) {
  277. _i=((((T7*)((T7*)a1)))->_count/*4*/)+(1);
  278. _val=C;
  279. while (!((_val)==(0))) {
  280. r7extend(((T7*)a1),r2digit((_val)%(10)));
  281. _val=(_val)/(10);
  282. }
  283. }
  284. else {
  285. r7extend(((T7*)a1),'\55');
  286. _i=((((T7*)((T7*)a1)))->_count/*4*/)+(1);
  287. _val=C;
  288. while (!((_val)==(0))) {
  289. r7extend(((T7*)a1),r2digit(-((_val)%(10))));
  290. _val=(_val)/(10);
  291. }
  292. }
  293. /*FI*/_val=(((T7*)((T7*)a1)))->_count/*4*/;
  294. while (!((_i)>=(_val))) {
  295. r7swap(((T7*)a1),_i,_val);
  296. _val=(_val)-(1);
  297. _i=(_i)+(1);
  298. }
  299. }
  300. /*FI*/}
  301. int r2min(int C,int a1){
  302. int R=0;
  303. /*IF*/if ((C)<(a1)) {
  304. R=C;
  305. }
  306. else {
  307. R=a1;
  308. }
  309. /*FI*/return R;
  310. }
  311. char r2digit(int C){
  312. char R=0;
  313. R=((char)((C)+(((unsigned char)'0'))));
  314. return R;
  315. }
  316. int r2max(int C,int a1){
  317. int R=0;
  318. /*IF*/if ((a1)<(C)) {
  319. R=C;
  320. }
  321. else {
  322. R=a1;
  323. }
  324. /*FI*/return R;
  325. }
  326. int r3is_separator(char C){
  327. int R=0;
  328. {int z1=C;
  329.  
  330. if((0==z1)||((9<=z1)&&(z1<=10))||(13==z1)||(32==z1)){
  331. R=1;
  332. }
  333. }
  334. return R;
  335. }
  336. char r3to_lower(char C){
  337. char R=0;
  338. /*IF*/if ((((unsigned char)C))<(65)) {
  339. R=C;
  340. }
  341.  else if ((((unsigned char)C))>(90)) {
  342. R=C;
  343. }
  344. else {
  345. R=((char)((((unsigned char)C))+(32)));
  346. }
  347. /*FI*/return R;
  348. }
  349. int r3value(char C){
  350. int R=0;
  351. R=(((unsigned char)C))-(48);
  352. return R;
  353. }
  354. int r3same_as(char C,char a1){
  355. int R=0;
  356. /*IF*/if ((C)==(a1)) {
  357. R=1;
  358. }
  359. else {
  360. {int z1=((unsigned char)C);
  361.  
  362. if(((65<=z1)&&(z1<=90))){
  363. R=(((unsigned char)C))==((((unsigned char)a1))-(32));
  364. }
  365.  else 
  366. if(((97<=z1)&&(z1<=122))){
  367. R=(((unsigned char)C))==((((unsigned char)a1))+(32));
  368. }
  369. }
  370. }
  371. /*FI*/return R;
  372. }
  373. int r3_px_6261(char C,char a1){
  374. int R=0;
  375. R=(((unsigned char)C))>=(((unsigned char)a1));
  376. return R;
  377. }
  378. int r3is_digit(char C){
  379. int R=0;
  380. {int z1=C;
  381.  
  382. if(((48<=z1)&&(z1<=57))){
  383. R=1;
  384. }
  385. }
  386. return R;
  387. }
  388. char r3to_upper(char C){
  389. char R=0;
  390. /*IF*/if ((((unsigned char)C))<(97)) {
  391. R=C;
  392. }
  393.  else if ((((unsigned char)C))>(122)) {
  394. R=C;
  395. }
  396. else {
  397. R=((char)((((unsigned char)C))-(32)));
  398. }
  399. /*FI*/return R;
  400. }
  401. int r3is_letter(char C){
  402. int R=0;
  403. {int z1=C;
  404.  
  405. if(((65<=z1)&&(z1<=90))||((97<=z1)&&(z1<=122))){
  406. R=1;
  407. }
  408. }
  409. return R;
  410. }
  411. void r497copy_from(T497 C,T497 a1,int a2){
  412. int _i=0;
  413. _i=a2;
  414. while (!((_i)<(0))) {
  415. (C)[_i]=((a1)[_i]);
  416. _i=(_i)-(1);
  417. }
  418. }
  419. T497 r497realloc(T497 C,int a1,int a2){
  420. T497 R=NULL;
  421. R=calloc(a2,sizeof(T0*));
  422. r497copy_from(R,C,(a1)-(1));
  423. return R;
  424. }
  425. void r731set_all_with(T731 C,T0* a1,int a2){
  426. int _i=0;
  427. _i=a2;
  428. while (!((_i)<(0))) {
  429. (C)[_i]=(a1);
  430. _i=(_i)-(1);
  431. }
  432. }
  433. void r731copy_from(T731 C,T731 a1,int a2){
  434. int _i=0;
  435. _i=a2;
  436. while (!((_i)<(0))) {
  437. (C)[_i]=((a1)[_i]);
  438. _i=(_i)-(1);
  439. }
  440. }
  441. T731 r731realloc(T731 C,int a1,int a2){
  442. T731 R=NULL;
  443. R=calloc(a2,sizeof(T0*));
  444. r731copy_from(R,C,(a1)-(1));
  445. return R;
  446. }
  447. void r500copy_from(T500 C,T500 a1,int a2){
  448. int _i=0;
  449. _i=a2;
  450. while (!((_i)<(0))) {
  451. (C)[_i]=((a1)[_i]);
  452. _i=(_i)-(1);
  453. }
  454. }
  455. T500 r500realloc(T500 C,int a1,int a2){
  456. T500 R=NULL;
  457. R=calloc(a2,sizeof(T0*));
  458. r500copy_from(R,C,(a1)-(1));
  459. return R;
  460. }
  461. void r539copy_from(T539 C,T539 a1,int a2){
  462. int _i=0;
  463. _i=a2;
  464. while (!((_i)<(0))) {
  465. (C)[_i]=((a1)[_i]);
  466. _i=(_i)-(1);
  467. }
  468. }
  469. T539 r539realloc(T539 C,int a1,int a2){
  470. T539 R=NULL;
  471. R=calloc(a2,sizeof(T0*));
  472. r539copy_from(R,C,(a1)-(1));
  473. return R;
  474. }
  475. void r42copy_from(T42 C,T42 a1,int a2){
  476. int _i=0;
  477. _i=a2;
  478. while (!((_i)<(0))) {
  479. (C)[_i]=((a1)[_i]);
  480. _i=(_i)-(1);
  481. }
  482. }
  483. T42 r42realloc(T42 C,int a1,int a2){
  484. T42 R=NULL;
  485. R=calloc(a2,sizeof(T0*));
  486. r42copy_from(R,C,(a1)-(1));
  487. return R;
  488. }
  489.  
  490.